text segment 'code'
     assume CS:text,DS:text
     org 100h

myproc proc
     jmp over
     bufer db 7,'........$'
     nop
over:
     lea DX,bufer
     mov AL,0Ah
     mov AH,0Ch
     int 21h

     mov AX,0
     mov CX,10
     mov BX,2
     mov DL,bufer[BX]
     cmp DL,'-'
     jne pol
     Inc BX
pol:
     cmp bufer[BX],0Dh
     je con
     mul CX ;
     mov DL,bufer[BX]
     xor DL,30h
     mov DH,0
     add AX,DX
     inc BX
     jmp pol
con:
     cmp bufer+2,'-'
     jne notmin
     neg AX
notmin:

     nop
     mov AX,4C00h;
     int 21h;
     ret
myproc endp

   a dw 2523h
   b db 25h

text ends
     end myproc